home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / icon / forceicon18.lha / ForceIcon / Source / FIconStub.asm < prev    next >
Encoding:
Assembly Source File  |  1995-01-27  |  643 b   |  52 lines
  1.  
  2.         XREF        MyAddAppIconAFunc
  3.  
  4.         XDEF        MyAddAppIconA
  5.         XDEF        CallOldAddAppIconA
  6.  
  7.         SECTION    "text",CODE
  8.  
  9.  
  10. MyAddAppIconA    movem.l    d1-d7/a0-a6,-(sp)
  11.  
  12.         move.l    a6,-(sp)
  13.         move.l    a4,-(sp)
  14.         move.l    a3,-(sp)
  15.         move.l    a2,-(sp)
  16.         move.l    a1,-(sp)
  17.         move.l    a0,-(sp)
  18.         move.l    d1,-(sp)
  19.         move.l    d0,-(sp)
  20.  
  21.         jsr    MyAddAppIconAFunc
  22.  
  23.         lea    32(sp),sp
  24.  
  25.         movem.l    (sp)+,d1-d7/a0-a6
  26.         rts
  27.  
  28.  
  29. CallOldAddAppIconA
  30.         movem.l    d1-d7/a0-a6,-(sp)
  31.  
  32.         move.l    60(sp),d0
  33.         move.l    64(sp),d1
  34.         move.l    68(sp),a0
  35.         move.l    72(sp),a1
  36.         move.l    76(sp),a2
  37.         move.l    80(sp),a3
  38.         move.l    84(sp),a4
  39.         move.l    88(sp),a6
  40.         move.l    92(sp),a5
  41.  
  42.         jsr    (a5)
  43.  
  44.         movem.l    (sp)+,d1-d7/a0-a6
  45.         rts
  46.  
  47.  
  48.  
  49.  
  50.         END
  51.  
  52.